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CROSSI  - A UNIVAC  PROCESSOR  WHICH  ASSEMBLES 
CODE  FOR  INTERDATA  MINICOMPUTERS 

by  Carol  V.  Young 


Instructions  are  given  for  the  use  of  CROSSI,  a computer  program  which 
assembles  Interdata  assembly  code  on  the  UNIVAC  1108  producing  an 
assembly  listing  and  relocatable  code  for  the  minicomputer.  The 
assembly  statements,  relocatable  output  formats,  and  the  structure  of 
the  processor  are  described.  A pre-processor  is  given  for  converting 
CROSSI's  zoned  relocatable  format  to  Interdata's  zoned  relocatable 
format.  A method  of  reconfiguring  the  CROSSI  Processor  to  assemble 
code  for  newer,  upward  compatible  minicomputer  models  is  explained. 


Key  Words:  Assembler;  cross-assembler;  machine  code;  relocatable  code. 


DISCLAIMER:  Mention  of  commercially  produced  equipment  or  programs  by 
brand  name  may  not  be  construed  as  an  endorsement  or  approval  of  such 
products  by  the  National  Bureau  of  Standards.  No  tests  or  evaluations 
of  these  products  have  been  conducted. 


1.  INTRODUCTION 

CROSSI  is  an  UNIVAC  1108  processor  which  assembles  Interdata  assembly 
source  statements  producing  source  listings  and  relocatable  machine 
code.  It  is  a two-pass  assembler  and  accepts  as  input  all  source 
statements  acceptable  to  the  Interdata  OS  Assembler  (03-025). 

It  is  presumed  that  the  reader  is  familiar  with  UNIVAC  1100  OS  control 
statements  (see  UNIVAC  Manual  UP-4144  or  UP-7824)  and  Interdata 
assembly  programming  (see  Interdata  Model  70  User's  Manual). 

Some  characteristics  and  advantages  of  CROSSI  are: 

1.  Permits  creating  and  updating  of  Interdata  assembly  source  files 
on  UNIVAC  mass  storage  from  either  batch  or  interactive  mode. 

2.  Permits  use  of  other  UNIVAC  processors,  including  the  Editor,  to 
manipulate  Interdata  files. 

3.  Allows  programmer  to  specify  instruction  sets  for  Interdata 
Models  3,  4,  74,  70,  and  three  configurations  of  Model  7/16. 

4.  Allows  additional  operations  for  newer  models  which  are 
compatible  with  the  Model  70. 
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5.  Generates  relocatable  machine  code  in  two  formats:  zoned  paper 

tape  format  using  ASCII  printing  characters  or  packed  format  on 
magnetic  tape. 

6.  Produces  program  listing  in  a variety  of  formats. 

7.  Accepts  all  Interdata  assembler  directives. 

8.  Accepts  extended  branch  mnemonic  instructions. 

9.  Flags  statements  containing  errors  with  the  same  flags  as  the 
Interdata  OS  assembler. 

CROSSI  has  successfully  assembled  Interdata  programs  including  the  RTOS 
operating  system  and  the  Dataplot  70  routines. 


2.  ASSEMBLER  SOURCE  STATEMENTS 
2.1  Comment  Statements 

Comments  are  descriptive  text  which  can  occupy  an  entire  source 
statement.  These  statements  are  distinguished  from  an  instruction  by 
placing  an  asterisk  (*)  in  column  one.  Text  can  occupy  columns  2 
through  72. 


2.2  Instruction  Statements 

An  Interdata  instruction  consists  of  four  fields:  the  label  field,  the 
operation  field,  the  operand  field,  and  the  comment  field.  If  an 
instruction  has  a label,  the  label  must  start  in  column  one.  If  the 
instruction  statement  does  not  have  a label,  column  one  must  be  blank. 
At  least  one  blank  must  separate  fields.  No  blanks  can  be  embedded 
within  the  label  or  operation  fields.  A blank  can  appear  in  the 

operand  field  only  if  it  is  within  a character  string  (DC  C' '). 

Within  the  operand  field  the  optional  index  register  is  enclosed  in 
parentheses  and  a comma  separates  the  other  subfields.  The  comment 
field  may  contain  any  character  and  this  field  is  always  optional. 


2.2.1  Statement  Labels 

Statement  labels  are  symbols  used  to  name  a location  or  a value. 
Symbols  consist  of  one  to  six  characters.  The  first  character 
must  be  alphabetic  or  one  of  three  special  characters  ($,  . , @). 
The  remaining  characters  can  be  alphabetic  or  numeric. 

When  using  CROSSI,  it  is  advisable  to  avoid  using  the  special 
character  'O'  as  the  first  character  of  a statement  label  because 
insertion  of  such  a statement  into  a runstream  causes  the  UNIVAC 
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Operating  System  to  process  the  image  as  a control  statement. 
Such  statements  can  be  inserted  into  a mass  storage  file  with  the 
UNIVAC  ELT  processor  using  the  D option  (see  Section  3.2.1  and 
3.2.2).  CROSSI  will  then  have  no  problem  reading  these  files. 


2.2.2  Machine  Instruction  Sets 

The  following  instruction  sets,  listed  in  the  Model  70  User's 
Guide,  are  included  in  CROSSI: 

53  Standard  Instructions 
4 High  Speed  Ari thematic  Instructions 
4 High  Speed  I/O  Instructions 
4 Basic  Model  4 Extensions 
13  Floating  Point  Instructions 
12  Basic  Model  5 Extensions 
27  Extended  Model  5 Instructions 

CROSSI  permits  the  user  to  choose  one  of  six  combinations  of 
these  instruction  sets  by  naming  the  target  Interdata  model. 
CROSSI  supports  the  following  models  and  assumes  each  to  be 
configured  as  follows: 


1. 

Model 

3 

53 

Standard  Instructions 

8 

High  Speed  Arithmetic  and  I/O 

Instructions 

61 

Total 

2. 

Model 

4 

53 

Standard  Instructions 

8 

High  Speed  Arithmetic  and  I/O 

Instructions 

13 

Floating  Point  Instructions 

4 

Basic  Model  4 Extensions 

78 

Total 

3. 

Model 

74 

53 

Standard  Instructions 

and 

4 

High  Speed  I/O  Instructions 

Model 

7/16A 

11 

Basic  Model  5 Extensions  (excludes  SINT) 

23 

Extended  Model  5 Instructions 
ABL,  RBL,  RTL) 

(excludes  ATL, 

91 

Total 

4. 

Model 

7/16B 

53 

Standard  Instructions 

8 

High  Speed  Arithmetic  and  I/O 

Instructions 

12 

Basic  Model  5 Extensions 

27 

Extended  Model  5 Instructions 

100 

Total 

3 


53  Standard  Instructions 
8 High  Speed  Arithmetic  and  I/O  Instructions 
13  Floating  Point  Instructions 
12  Basic  Model  5 Extensions 
27  Extended  Model  5 Instructions 

113  Total 

6.  Model  70/xxx  Same  Instruction  Sets  as  Model  70  plus  any 

operations  added  for  newer  Interdata  models. 


2.2.3  Extended  Branch  Mnemonic  Instructions 
CROSSI  operation  codes  include: 

1.  15  long  branch  extended  mnemonics  available  on  all 

Interdata  models. 

2.  15  register  to  register  extended  branch  mnemonics 

available  on  all  Interdata  models. 

3.  14  short  extended  branch  mnemonics  available  on  Model  74, 
Model  70  and  the  three  configurations  of  Model  7/16. 

2.2.4  Assembler  Instruction  Set 

The  following  assembler  directives  (pseudo-ops)  are  included  in 
CROSSI  and  operate  in  the  same  way  as  in  the  Interdata  OS 
assembler  except  as  noted  below. 

1.  EQU  - Equate  Symbol 

2.  ENTRY  - Identify  Entry-Point  Symbol 

3.  EXTRN  - Identify  External  Symbol 

4.  DC  - Define  Constant 

Operands  of  DC  instructions  specify  the  following  data 
type: 

C 1 Character  constant 

X' ' Hexadecimal  constant 

A ' ' Address  constant 

H' ' Halfword  decimal  constant 

E' 1 Floating  Point  constant  (single  precision) 

D' 1 Floating  Point  constant  (double  precision) 

If  no  data  type  is  specified,  halfword  decimal  constant  is 
assumed  for  a numeric  operand  and  address  constant  is 
assumed  for  a symbolic  operand. 


5.  Model  70 
and 

Model  7/16C 
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5. 


DS  - Define  Storage 


6.  DB  - Define  Byte 

Following  one  or  more  define  byte  instructions,  the  value 
of  the  location  counter  for  a non-define  byte  instruction 
is  automatically  forced  to  be  even. 

7.  ORG  - Sets  Value  and  Mode  of  Location  Counter 

8.  END  - End  Assembly  and  Transfer  Address 

9.  DO  - Conditional/Multiple  Assembly  Instruction 

10.  IF  - Conditional  Assembly 

11.  TITLE  - Listing  Title  and  Format  Control 

12.  OPT  - Specify  Options 

CROSSI  will  read  an  OPT  statement  and  process  only  the 
label  subfield.  All  other  subfields  will  be  ignored. 

a)  LAB  = nnnnnn  The  object  program  label  nnnnnn  will  be 
written  on  the  relocatable  file  in  symbolic  form  (R  or  M 
option  only) . 

b)  Number  of  pass  option  has  no  meaning  since  CROSSI  is  a 
two-pass  assembler. 

c)  PUNCH,  NOPNCH,  PRINT,  NOPRINT,  and  SQCHK  options  are 
available  on  the  processor  call  statement  (see  Sections 
3.2.3,  3.2.4,  3.2.5). 

d)  FLOAT,  SCRI  and  GO  options  are  automatic. 

13.  PAUSE  - Assembly  Pause 

CROSSI  will  ignore  this  statement.  The  statement  will  not 
appear  in  the  listing. 


3.  PROCESSOR  CALL  STATEMENT 

CROSSI  is  a standard  UNIVAC  two-specification  processor  with  two 
optional  fields  for  designating  the  target  Interdata  model  and  a 
magnetic  tape  file  for  relocatable  output.  The  processor  call 
statement  is  as  follows: 

0CROSSI [ , options]  SI-ELTNAME[ ,SO-ELTNAME][ , INTERDATA-MODEL] [ .MAG-FILE] 


3.1  Specification  Fields 

The  first  and  second  specification  fields  are  standard  UNIVAC  source 
input  and  source  output  fields  (see  I and  U option  below). 

The  third  specification  field  codes  the  model  number  of  the  target 
Interdata  computer  as  follows: 

3 for  Model  3 

4 for  Model  4 

74  for  Model  74 

70  for  Model  70 

7/16A  ) 

7/16B  for  Model  7/16 
7/16C  ) 

70/xxx  for  newer  Model  xxx 

If  this  field  is  not  present,  Model  70  is  assumed.  CROSSI  will  permit, 
as  a legal  operation,  only  those  operations  available  for  the 
designated  model  (see  Section  2.2.2). 

The  fourth  specification  field  is  named  only  with  the  M option  and  is 
ignored  in  all  other  cases.  With  the  M option  this  field  must  specify 
an  assigned,  write-enabled,  nine-track  magnetic  tape  file  onto  which 
the  relocatable  file  is  to  be  written  (see  Section  3.2.4). 


3.2  Options 

3.2.1  I Option 

This  option  inserts  a new  source  language  element  into  a mass 
storage  file  from  the  runstream.  With  this  option  the  source 
language  input  parameter  specifies  the  file  and  element  into 
which  the  source  language  output  is  to  be  written.  The  source 
language  output  (SO)  parameter  is  never  used  and  should  not  be 
speci fied. 

Example  1:  Source  is  a card  deck 

OCRQSSI , IL  FILE  1 . ELT1 

source  deck 

@E0F 

Example  2:  Source  is  a SDF  DATA  file 

0CR0SSI , IL  FILE1.ELT1 
@ADD,E  SOURCEFILE. 

In  both  examples  above,  CROSSI  will  insert  the  source  statements 
into  FILE1.ELT1,  assemble  the  source  statements  and  produce  a 
standard  listing  (L  option). 
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If  the  input  source  file  contains  one  or  more  statement  labels 
which  begin  with  an  producing  a statement  with  an  1 @ ■ in 
column  one,  CROSSI  can  not  be  used  for  initial  insertion  of  this 
source  file.  The  user  can  insert  the  source  file  using  the 
UNIVAC  ELT  processor  with  the  I and  D options  (see  2.2.1). 


Example  1: 

@ELT,ID 
source  deck 
@END 


FILE  1 . ELT2 


CROSSI  can  then  read  and  assemble  this  file. 

OCROSSI  ,L  FILE1.ELT2 
@E0F 


3.2.2  U Option 

This  option  updates  an  existing  source  language  input  (SI) 
element  to  the  next  higher  element  cycle,  thus  saving  any  source 
language  corrections  that  are  currently  being  applied  to  the 
source  language  input  element.  If  the  source  output  field 
(second  specification  field)  is  specified,  the  U option  is 
ignored  and  no  cycling  is  produced.  The  updated  source  is 
written  into  the  element  specified  in  the  source  output  field. 


FILE1.ELT1 


FILE1.ELT1, .ELT2 


Example  1: 

OCROSSI ,UL 
-5 

DC  2 
-7,9 
DC  3 
@E0F 

Example  2: 

OCROSSI  ,L 
-5 

DC  2 
-7,9 
DC  3 
@E0F 


In  both  examples  the  statement  "DC  2"  will  be  inserted  following 
statement  5 of  ELT1  in  FILE1.  Statement  7 thru  9 will  be 
replaced  by  the  statement  "DC  3".  The  source  statements  will  be 
assembled  and  a standard  listing  produced.  In  Example  1 the  new 
cycle  will  be  in  ELT1  of  FILE1.  In  Example  2 the  updated  element 
will  be  placed  in  ELT2  of  FILE1  and  ELT1  will  be  unchanged. 
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As  in  the  case  of  the  I option,  CROSS I cannot  be  used  to  insert  a 
correction  line  which  has  an  in  column  one.  This  insertion 
can  be  accomplished  using  the  UNIVAC  ELT  processor  with  the  1)  and 
D options . 

Example  1: 

@ELT,UD  FILE1.ELT1 

-5 

@LABEL  DC  2 
@END 

Followed  by 

@CR0SSI ,L  FILE1.ELT1 
@E0F 


3.2.3  List  Options 

These  options  specify  the  type  of  listing  to  be  produced. 
CROSSI's  listing  attempts  to  reproduce  the  standard  OS  assembly 
listing.  Statements  that  do  not  appear  in  the  OS  assembly 
listing,  for  example  OPT  and  TITLE  statements,  do  not  appear  in 
CROSSI's  listing.  CROSSI  will  number  each  statement  according  to 
its  position  in  the  file  rather  than  its  position  in  the  listing. 
This  will  permit  the  user  to  employ  the  line  numbers  from  the 
listing  when  editing  or  updating  his  files. 

In  almost  all  cases,  CROSSI  will  flag  statements  containing 
errors  with  the  same  flags  as  the  OS  assembler  (see  Appendix  A). 

CROSSI  will  list  the  symbol  table  in  alphabetic  order.  The  order 
of  this  sort  may  not  be  identical  to  the  alphabetic  order 
produced  by  the  OS  assembler.  The  collating  sequence  used  in 
CROSSI  is  not  the  ASCII  sequence,  but  the  UNIVAC  Fieldata 
sequence,  which  results  in  different  placement  of  numerics  and 
special  characters. 

CROSSI  will  permit  the  user  to  request  on  the  call  statement 
either  a standard  listing,  a short  listing,  a listing  of  flagged 
statements,  or  nc  listing  at  all.  The  options  are  as  follows: 

L Option  From  Batch  Or  B_  Option  From  Batch  Or  Interact!' ve  Mode : 
This  list  option  willPproduce  the  most  extensive  listing. 

1.  Pages  will  be  numbered. 

2.  Title  cards  will  cause  a skip  to  the  next  page. 

3.  The  most  recent  title  (if  any)  will  be  printed  at  the  top 
of  each  page. 

4.  Comment  statements  will  be  listed. 
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5.  All  assembled  statements  will  be  listed  with  statement 
number,  error  flag  (if  any),  value  and  mode  of  location, 
machine  code  and  statement  text. 

6.  Finally,  error  count,  address  of  next  available  location 
and  the  symbol  table  will  be  listed. 

L_  Option  From  Interactive  Mode:  In  interactive  mode  this  option 

will  produce  a listing  similar  to  the  batch  mode  listing  with  the 
following  exceptions: 

1.  Pages  will  not  be  numbered. 

2.  Titles  will  appear  only  where  they  occur. 

S Option:  This  list  option  will  produce  a short  listing  which  is 

useful  in  interactive  mode 

1.  Conment  statements  will  be  listed. 

2.  All  assembled  statements  will  be  listed  with  statement 
number,  error  flag,  value  and  mode  of  location,  and 
statement  text.  Machine  code  is  not  listed. 

3.  Finally,  error  count  and  address  of  next  available 
location  are  listed.  The  symbol  table  is  not  listed. 


N Option:  This  list  option  will  produce  no  statement  listing  but 
will  print  error  count  and  address  of  next  available  location. 

No  List  Option:  If  no  list  option  is  requested  CROSSI  will 
produce  a listing  of  all  flagged  statements,  error  count  and 
address  of  next  available  location. 


3.2.4  Punch  Options 

These  options  cause  the  production  and  output  of  a relocatable 
file  and  specify  the  output  format.  CROSSI  will  write  the 
relocatable  data  and  the  necessary  control  items  in  a temporary 
file.  After  completion  of  the  assembly  and  the  designated 
listing,  CROSSI  will  output  this  relocatable  file  to  paper  tape 
(R  option)  or  to  magnetic  tape  (M  option). 

R Option:  This  option  will  cause  the  output  of  relocatable  data 

Tn  zoned  paper  tape  format  (see  Section  4.1)  using  ASCII  printing 
characters.  In  order  to  punch  this  relocatable  file,  the  user 
must  be  in  interactive  mode  with  a teletypewriter  terminal 
equipped  with  a paper  tape  punch.  After  printing  the  designated 
listing,  CROSSI  will  print  the  message: 

"TURN  ON  PUNCH" 

Within  20  seconds  CROSSI  will  read  and  output  the  relocatable 
file. 
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Since  the  relocatable  file  is  output  as  printing  characters,  the 
file  will  be  both  listed  and  punched.  The  R option  in  batch  or 
from  interactive  terminals  not  equipped  with  a paper  tape  punch 
will  list  the  relocatable  file. 


M Option:  This  option  will  output  the  relocatable  file  in  packed 
format  (see  Section  4.3)  to  the  magnetic  tape  file  specified  in 
the  fourth  specification  field  on  the  processor  call  statement. 
If  no  magnetic  tape  file  is  specified,  no  relocatable  output  is 
produced  and  CROSSI  will  print  the  message: 

"M  OPTION  IGNORED 
NO  MAGNETIC  TAPE  FILE" 


3.2.5  Other  Standard  UNIVAC  Options  (see  UNIVAC  UP-7824  or 
UP-4144) 

G_  Option : 

H.  Option: 

J_  Option: 


K_  Option : 


P^  Option : 


Q.  Option  • 


compressed  symbolic  input  cards. 

input  cards  contain  sequence  numbers  in  column  73-80. 

card  input  with  compressed  symbolic  in  columns  1-72 
and  sequence  numbers  in  columns  73-80. 

check  sequence  number  in  column  73-80.  The  H option 
must  be  used  with  the  K option. 

specifies  that  source  language  output  should  be  in 
Fieldata  code.  Identifies  card  image  input,  if  any, 
as  being  Fieldata. 

specifies  that  source  language  output  should  be  ASCII. 
Identifies  card  image  input,  if  any,  as  being  ASCII. 


4.  RELOCATABLE  OUTPUT 

CROSSI  records  relocatable  information  in  a temporary  file  with  the 
FORTRAN  unformatted  WRITE  statement.  This  file  cannot  be  read  by  other 
UNIVAC  processors.  Upon  completion  of  the  assembly  process,  CROSSI 
reads  and  outputs  this  file  one  record  at  a time. 

Each  record  contains  216  hex  digits.  The  first  item  in  each  record  is 
a four  digit  sequence  number.  Sequence  numbers  are  negative  integers 
(-1,  -2,  -3,  etc.)  represented  in  two's  complement  form.  The  next  item 
is  a four  digit  checksum  which  is  the  EXCLUSIVE  OR  sum  of  all  hex 
digits  in  the  record  except  itself  plus  a word  of  all  ones. 
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4.1  Zoned  Paper  Tape  Format 


With  the  R option,  CROSS  I will  punch  paper  tape  in  M08  zoned  format 
which  is  the  format  used  for  punching  paper  tapes  on  a teletypewri ter 
punch.  CROSSI  combines  each  hex  digit  of  information  with  a zone  of 
hex  3 or  hex  B depending  on  the  parity  bit,  forming  the  following  ASCII 
printing  characters: 


Hex  Digit 
0 ' 

1 

2 

3 

4 

5 

6 

7 

8 
9 
A 
B 
C 
D 
E 
F 


ASCII  Printing  Character 
@ 

A 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

0 


One  record,  including  zones,  is  punched  in  216  frames  on  paper  tape. 
The  last  printing  character  in  the  last  record  of  CROSS  1 1 s relocatable 
file  is  an  ASCII  period  (X'2E'),  which  is  not  included  in  the  checksum. 


4.2  Pre-processor  For  Zoned  Paper  Tapes 

Standard  Interdata  M08  formatted  paper  tapes  use  zones  0 or  1 to 
produce  ASCII  non-printing  characters.  It  is  not  possible  for  CROSSI 
to  transmit  some  of  these  non-printing  ASCII  characters.  For  example, 
an  ASCII  X ' 04 ' is  an  end-of-transmission  signal  (EOT)  and  the  UNIVAC 
operating  system  will  interpret  it  as  a message  stop  code. 

Interdata  loaders  insist  that  the  standard  zones  be  on  M08  formatted 
paper  tapes.  CROSSI' s paper  tapes  must  be  processed  by  an  Interdata 
computer  to  produce  a relocatable  file  that  the  Interdata  loaders  can 
read. 

A pre-processor  has  been  written  which  runs  on  the  Model  70,  Model  74 
or  Model  7/16.  The  listing  of  this  program  is  given  in  Appendix  B. 

The  pre-processor  will: 

1.  Read  each  record  of  the  CROSSI ' s relocatable  paper  tape  file 
from  logical  unit  one. 
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2.  Ignore  the  ASCII  characters:  SP,  CR,  LF,  NUL,  DEL. 

3.  Strip  parity  bit  and  zone  off  each  hex  digit. 

4.  Pack  each  hex  digit,  four  digits  per  word. 

5.  Output  the  packed  hex  digits  with  a binary  write  to  logical  unit 
two. 

6.  Continue  reading,  processing,  and  outputting  records  until  an 
ASCII  period  ( X ' 2E  ' ) is  read. 

7.  Output  last  record  and  return  control  to  the  operating  system. 
The  format  of  the  output  file  will  depend  on  the  output  device: 

1.  M08  zoned  format  for  teletypewriter  punch. 

2.  M16  packed  format  for  high  speed  paper  tape  punch  or  mass 
storage  devices. 


4.3  Packed  Format 

CROSSI  with  the  M option  will  output  relocatable  data  to  magnetic  tape 
in  packed  M16  format.  This  format  is  used  to  punch  paper  tape  on  a 
high  speed  punch.  The  first  character  of  each  record  is  a X'FO'. 
Following  this  character  each  record  contains  216  hex  digits  of 
information  packed  2 hex  digits  per  byte.  The  complete  record  is  109 
frames . 

A paper  tape  of  this  file  can  be  punched  offline.  An  Interdata 
equipped  with  a magnetic  tape  drive  or  a high  speed  paper  tape  reader 
can  load  these  relocatable  files  directly.  No  pre-processing  is 

requi red. 


5.  STRUCTURE  OF  CROSSI  PROCESSOR 

CROSSI's  main  program  and  eight  of  its  fifteen  subroutines  are  written 
in  UNIVAC  FORTRAN  V.  Seven  subroutines  are  written  in  UNIVAC  assembly 
language.  Three  of  the  FORTRAN  subroutines  are  adapted  from 
subroutines  from  MINIMAX  by  H.  H.  Grote  k3%. 

For  file  manipulation  CROSSI  uses  a FORTRAN  interface  to  the  standard 
UNIVAC  Processor  Support  Library.  This  interface  was  written  at  NBS  by 
Edward  Barkmeyer  and  allows  reading  and  writing  on  mass  storage  files 
in  80R1  format. 

UNIVAC  internal  code,  Fieldata,  is  a six  bit  character  code.  One 
computer  word  of  36  bits  holds  six  Fieldata  characters.  Each  character 

12 


position  from  left  to  right  in  a computer  word  is  referred  to  as  word 
position  SI,  S2,  S3,  S4,  S5,  and  S6.  UNIVAC  numbers  its  bit  positions 
from  low  order  bit  0 to  high  order  bit  35  (see  Figure  5.1). 


SI 

S2 

S3 

S4 

S5 

S6 

35  30 

29  24 

23  18 

17  12 

11  6 

5 0 

Figure  5.1 


5.1  Temporary  Files 

CROSSI  will  assign  a temporary  source  scratch  file  and  a temporary 
relocatable  file  (R  or  M option  only).  These  files  will  be  FORTRAN 
logical  units  which  are  not  already  being  used  in  the  run.  CROSSI  will 
not  interfere  with  any  user  assigned  logical  unit. 


5.2  Symbol  Tables 

The  symbol  tables  consist  of  two  arrays:  a symbolic  table  array  (STBL) 

and  a corresponding  symbol  definition  table  array  (DTBL) . 

The  symbol  table  (STBL)  contains  the  Fieldata  character  representation 
of  each  symbol,  left-justified  and  space-filled. 

The  symbol  definition  table  (DTBL)  contains: 

1.  Word  position  S3,  S4,  S5,  S6  (bits  23  to  0)  - the  value  or 
location  of  the  symbol  in  hexadecimal  Fieldata  character 
representation . 

2.  Word  position  S2  (bits  29  to  24)  - the  mode  of  the  symbol 
definition,  either  a Fieldata  R for  relative  or  a Fieldata  space 
for  absolute. 

3.  Word  position  SI  (bits  35  to  30)  - any  flag  associated  with  that 
symbol  in  Fieldata  character  representation . 
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Example:  X for  external  symbol 

* for  entry  symbol 
U for  undefined  symbol 
M for  multiplied  defined  symbol 

If  no  flag  is  associated  with  the  symbol,  the  SI  position  contains  a 
Fieldata  space. 

The  size  of  the  symbol  table  is  set  at  compilation  time  by  setting 
parameter  LSCT. 

It  is  not  possible  to  continue  assembly  if  an  attempt  is  made  to  insert 
a label  into  a full  symbol  table.  In  this  case  CROSSI  will  halt  the 
assembly  and  print  the  message: 

"SYMBOL  TABLE  OVERFLOW 
ASSEMBLY  HALTED" 


5.3  Operation  Code  Tables 

There  are  two  operation  code  tables:  mnemonic  operation  code  table 

(OPTBL)  and  a corresponding  hex  machine  operation  code  table  (HTBL). 


5.3.1  Mnemonic  Operation  Code  Table  (OPTBL) 

This  table  (OPTBL)  contains  mnemonic  operation  codes  consisting 
of  one  to  five  characters,  left-justified , blank-filled,  starting 
at  bit  position  29  (word  positions:  S2,  S3,  S4,  S5,  S6).  All 
operation  codes  including  instruction  set,  extended  branch 
mnemonic  instructions  and  assembler  directives  are  included  in 
•this  table. 


MODEL 

3 

MODEL 

4 

MODEL 

74 

MODEL 

7-16A 

MODEL 

7-16B 

MODEL 

70 

MODEL 

7-16C 

MODEL 

70/xxx 

BIT  35 

BIT  34 

BIT  33 

BIT  32 

BIT  31 

BIT  30 

Figure  5.2 
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The  six  bits  of  the  SI  word  position  of  the  OPTBL  table  codes  the 
legal  computer  model  or  models  for  the  operation.  Figure  5.2 
shows  which  bits  code  the  legal  operation  state  for  the  various 
models.  In  the  case  of  the  standard  set  of  instructions  which 
are  legal  on  all  models,  these  six  bits  are  all  zeros. 
Otherwise,  a one  in  a bit  position  indicates  the  legal  state  for 
the  operation  on  that  model. 

Example: 

6H@BAL  legal  on  all  models 

6GHSVC  legal  on  all  models  except  3 or  4 

6H7DHR  legal  on  all  models  except  74  and  7/16A 

6HBABL  legal  on  7/16B,  70,  7/16C  and  the  extended  models 


5.3.2  Hexadecimal  Operation  Code  Table  (HTBL) 

This  table  (HTBL)  contains  four  items  of  information  per  entry 
for  the  corresponding  operation  listed  in  table  OPTBL. 

1.  Word  position  S5  and  S6  (bit  11-0)  contains  the 
hexadecimal  machine  code  for  the  operation  as  two  Fi el  data 
characters . 

2.  Word  position  S4  contains  the  value  of  the  mask  for  the  R1 
field  of  extended  branch  mnemonics  instruction  as  a 
Fieldata  digit.  For  all  other  operations  this  position 
contains  a Fieldata  space. 

3.  Word  position  S2  contains  a Fieldata  digit  from  1 to  3 or 
space  which  indicates  hardware  restrictions  on  the 
register  fields  as  shown  below. 

a.  Fieldata  1 for  short  (16  bit)  instructions:  both 

register  fields  must  have  even  operands. 

Examples:  floating  point  register  to  register 

instructions . 

b.  Fieldata  1 for  long  (32  bit)  instructions:  the  R1 

field  must  be  even. 

Example:  floating  point  double  shift,  multiply  and 

divide  long  instructions. 

c.  Fieldata  2 for  short  (16  bit)  instructions:  the  R1 

field  must  be  even. 

Example:  Register  to  register  multiply  and  divide 

instructions . 

d.  Fieldata  3 for  instructions  whose  R1  or  R2  fields  are 
limited  to  R14  or  lower,  or  R13  or  lower,  because  the 
R+l  register  or  both  R+l  and  R+2  registers  are  used 
during  the  execution  of  the  instruction. 

Examples:  BXLE , BXH , WBR,  RBR . 
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e.  Fieldata  space  for  all  instructions  with  no  hardware 
limitations  on  the  register  fields. 

4.  Word  position  SI  contains  a binary  digit  which  is  used  by 
the  program  to  direct  the  analysis  of  the  instruction 
through  the  assembly  process  (see  Section  6.1). 


.4  Flow  Through  Processor 

The  following  is  an  example  of  the  order  of  events  during  CROSS  1 1 s 
assembly  of  an  Interdata  file  assuming  both  the  list  option  (L)  and 
the  punch  option  (R)  are  requested  by  the  processor  call  statement. 


5.4.1  Ini tiatization  Phase 

1.  Assigns  a temporary  source  file  for  source  output  from 
pass  1. 

2.  Reads  processor  call  statement. 

3.  Processes  options  and  determines  list  and  punch  mode. 

4.  Determines  source  input  file,  source  output  file  (if  any), 
and  the  target  model . 

5.  Obtains  date,  time  and  cycle  information  and  prints 
sign-on  message. 

6.  Sets  location  counter  value  to  X'OOOO*  and  mode  to 
relative. 

7.  Assigns  a temporary  relocatable  file. 

8.  Turns  on  automatic  assembly  indicator. 

9.  Branches  to  pass  1. 


5.4.2  Pass  1 Phase 

1.  Reads  each  data  image  in  80  R1  format. 

2.  Outputs  comment  statements  to  source  scratch  file. 

3.  Parses  instruction  statements  into  3 fields:  label  field, 

operation  field,  and  operand  and  comment  field. 

4.  Checks  automatic  assembly  indicator  and  if  on,  continues 
processing.  If  off  and  the  statement  operation  is  not  an 
IF  or  END,  the  statement  is  not  evaluated,  is  not  passed 
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on  to  pass  2 and  will  not  appear  in  the  listing  or  the 
relocatable  file. 

5.  Adds  label,  label  location  and  mode  of  location  to  the 
symbol  tables. 

6.  Checks  for  and  flags  duplicate  symbols. 

7.  Determines  index  of  location  of  the  operation  in  the 
operation  code  table. 

8.  Evaluates  operands  of  DO  statements  and  processes  the 
statement  following  the  DO  statement  the  number  of  times 
indicated  by  the  value  of  the  DO  operand. 

9.  Evaluates  operand  of  IF  statements  and  turns  the  automatic 
assembler  indicator  off  if  the  operand  is  zero,  and  on  if 
the  operand  is  nonzero. 

10.  Evaluates  operand  of  ORG  statements,  sets  the  location 
counter  to  the  value  of  the  operand  and  sets  the  location 
counter  mode  to  mode  of  the  operand. 

11.  Evaluates  operand  of  EQU  statements  and  adds  the  value  and 
mode  of  operand  to  the  symbol  definition  table 
corresponding  to  the  statement  label  entry  in  the  symbol 
table. 

12.  Evaluates  operand  of  DS  statement  and  increments  the 
location  counter  by  the  value  of  the  operand. 

13.  Evaluates  length  of  DC  C&...&  statements. 

14.  Adds  to  the  symbol  tables:  the  operand  symbols  of  an 

EXTRN  statement,  the  value  of  absolute  zero  and  an 
appropriate  flag. 

15.  Increments  location  counter  by  0,  1,  2,  4 or  more  bytes  as 
indicated  by  the  instruction. 

16.  Searches  operand  of  an  OPT  statement  for  a program  label 
and  if  found  adds  the  appropriate  loader  control  item  and 
symbolic  label  to  the  relocatable  buffer. 

17.  Forces  the  location  counter  to  be  even  if 

a.  operand  of  a DS  instruction  is  odd  (LC  = LC+1), 

b.  operand  of  an  ORG  instruction  is  odd  (LC  = LC-1),  or 

c.  location  counter  is  odd  after  one  or  more  DB 
instructions  (LC  = LC+1). 
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18.  Outputs  to  the  source  scratch  file,  the  following  fields 
for  each  instruction  statement: 

statement  numbers 
error  flag  or  space 
value  of  location  counter 
mode  of  location  counter 
label 
operati on 

operand  and  comments 
sequence  number 

index  to  position  of  operation  in  tables  (OPTBL,  HTBL) 

19.  Writes  an  EOF  and  rewinds  the  scratch  file  after 
encountering  an  END  statement  or  an  end  of  file. 


5.4.3  Pass  2 Phase 

1.  Reads  each  record  from  the  source  scratch  file. 

2.  Prints  comment  statements. 

3.  Parses  other  records  into  its  various  fields. 

4.  Searches  symbol  table  for  label  duplication  (labeled 
statements  only)  and  flags  the  record  if  duplication  is 
found. 

5.  Determines  the  hex  machine  operation  code  by  a table 
look-up. 

6.  Evaluates  operands  of  machine  instructions  and  Define  Byte 
and  Define  Constant  assembly  instructions.  If  one  extra 
byte  location  was  generated  during  Pass  1 to  realign  the 
location  counter  after  Define  Byte  instructions,  one  zero 
byte  is  generated  for  that  location. 

7.  Determines  the  appropriate  loader  control  item  for  each 
machine  instruction  and  for  each  Define  Byte,  Define 
Constant,  Define  Storage,  and  ORG  assembly  instruction. 

8.  Adds  each  loader  control  item  and  each  data  or  address 
item  to  the  relocatable  buffer.  That  is,  adds  each  item 
to  checksum,  converts  each  item  to  ASCII  printing 
characters  and  adds  these  to  the  relocatable  buffer. 

9.  Monitors  the  relocatable  buffer  and  when  buffer  is  full, 
adds  record  sequence  number  and  final  checksum  to  the 
buffer  and  outputs  the  buffer  to  the  relocatable  file. 
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10.  Processes  operands  of  ENTRY  statements  and  flags  each 
entry  label  in  the  symbol  table. 

11.  Checks  operands  of  EXTRN  statements  and  flags  any  external 
symbols  that  become  defined. 

12.  Processes  title  from  TITLE  statement  and  prints  title  at 
top  of  next  page. 

13.  Prints  page  number  and  most  recent  title  at  top  of  each 
page. 

14.  Prints  each  record  as  follows: 

statement  number 

error  flag  or  space 

value  of  location  counter 

mode  of  location  counter 

machine  code 

label 

operati  on 

operand 

comments 

15.  Evaluates  operand  (if  any),  remembers  value  of  operand, 
and  branches  to  the  final  phase  when  an  END  statement  is 
encountered . 


5.4.4  Final  Phase 

1.  Prints  symbol  table  in  alphabetic  order. 

2.  Adds  symbolic  external  and  entry  symbols  and  their 
definitions  along  with  the  appropriate  control  item  to  the 
relocatable  buffer. 

3.  Adds  transfer  address  (if  any)  to  the  relocatable  buffer. 

4.  Adds  end  of  program  control  item  to  relocatable  buffer. 

5.  Outputs  last  relocatable  buffer  to  the  relocatable  file. 

6.  Writes  an  end  of  file  and  rewinds  the  relocatable  file. 

7.  Prints  the  following  message: 

"TURN  ON  PUNCH" 

8.  Pauses  for  20  seconds. 
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9. 


Reads  and  outputs  the  entire  relocatable  file  as  108  ASCII 
character  records. 


10.  Frees  temporary  files. 

11.  Stops. 


6.  RECONFIGURATION  OF  CROSSI  ASSEMBLER 

CROSSI  can  be  re-confi gured  to  change  the  length  of  the  symbol  tables 
or  to  assemble  new  operations  for  newer  computer  models  which  have 
upward  compatabi 1 i ty  with  the  Model  70. 

6.1  Addition  Of  New  Operation  Codes 

CROSSI  will  accept  new  mnemonic  operation  code  of  up  to  five  characters 
long  whose  operands  conform  to  one  of  the  following  standard  formats. 

1.  Short  instructions  with  two  operands. 

Example:  SIS  Rl,2 

AHR  R1 ,R2 
SLLS  R1 ,4 

2.  Short  instructions  with  one  operand. 

Example:  BR  R1 

BZR  R2 

3.  Long  instructions  with  two  operands. 

Example:  LH  R1,0(R2) 

SHI  R 1 , X ' 12 34 ' 

SLHL  Rl, LABEL 

4.  Long  instructions  with  one  operand. 

Example:  BZ  LABEL1 

LPSW  LABEL2 
SINT  0(R1 ) 

AL  6(R2) 

To  insert  a new  operation  code: 

1.  Increment  the  parameter  LOCT  by  one. 

2.  Insert  into  table  OPTBL  at  its  correct  alphabetic  position,  a 
word  containing  the  following  information: 

Position  S2 ,S3 ,S4 ,S5 ,S6  - the  Fieldata  representation  of  the 
operation  code,  left-justified  and  blank-filled. 

Position  SI  - Fieldata  [ (binary  1). 
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Example:  6H[RSTUV 

4H[XYZ 


3.  Insert  into  table  HTBL,  at  the  location  corresponding  to  the  new 
entry  in  OPTBL,  a word  containing  the  following  information: 

Position  SI  - A binary  number,  the  value  of  which  depends  on  the 
type  of  operand. 


Position  S2  - A Fieldata  space  or  appropriate  register 
restriction  (see  Section  5.3.2). 

Postion  S3  - A Fieldata  space. 

Position  S4  - A Fieldata  space  or  the  appropriate  mask  value 
(see  Section  5.3.2). 

Position  S5  & S6  - Flex  machine  code  as  two  Fieldata  characters. 
Examples:  6HI  12 


In  order  to  assemble  the  new  operation,  the  third  specification  field 
on  the  call  statement  is  coded  as  70/xxx  where  xxx  can  be  letters  or 
digits  which  represent  the  new  model.  CROSSI  will  then  assemble  as 
legal  operations,  the  model  70  instruction  set  plus  all  new 
instructions . 

A single  compilation  of  CROSSI  can  not  distinguish  between  more  than 
one  additional  model.  No  attempt  is  made  to  analyze  the  "xxx" 
subfield. 


6.2  Length  Of  Symbol  Table 

The  standard  edition  of  CROSSI  is  configured  with  a symbol  table  for  up 
to  1000  entries.  This  value  can  be  changed  by  changing  parameter  LSCT 
from  1000  to  the  number  of  symbol  entries  desired. 


14  (Fieldata  I)  for  short  instructions  with  one 

12  (Fieldata  G)  for  short  instructions  with  two 

11  (Fieldata  F)  for  long  instructions  with  one 

13  (Fieldata  H)  for  long  instructions  with  two 


operand, 
operands . 
operand, 
operands . 


6HF  042 
6HI1  56 
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APPENDIX  A 


1.  STATEMENT  FLAGS 

Flag 

Meaning 

Blank 

E 

F 

G 

Correct  assembly 

Illegal  register  assignment 

Format  error,  assembly  attempted 

Severe  format  error,  assembly  not  attempted, 

statement  listed  as  received 

M 

0 

T 

Multiple  defined  symbol 
Operation  mnemonic  invalid 

Truncation  error:  a constant  or  expression  has 
overflowed  the  specified  limits 

R 

Relocation  error,  a meaningless  combination  of 

U 

relocatable  symbols  as  in  an  expression 
Undefined  symbol 

Flag 

2.  SYMBOL  TABLE  FLAGS 
Meani ng 

U Space 

* Space 
** 

Undefined  local  symbol 

Properly  used  EXTRN  or  ENTRY  symbol 

Symbol  used  in  the  operand  of  EXTRN  or  ENTRY  not  used 

* 

» 

* 

D* 

properly  or  at  all  within  the  program 

An  ENTRY  symbol  which  was  never  defined  was  referenced 

An  EXTRN  symbol  became  defined 

Symbol  used  in  the  operand  of  both  an  EXTRN  and  an  ENTRY 
line  (written  on  object  program  as  an  ENTRY,  if 
defined;  or  as  an  EXTRN,  if  referenced) 

*M 

Any  EXTRN  or  ENTRY  that  became  multiply  defined 
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APPENDIX  B 


The  following  is  a listing  of  the  Interdata  pre-processor  which 
produces  Interdata  relocatable  files  from  CROSS  1 1 s zoned  ASCII  paper 
tapes.  It  is  also  an  example  of  a listing  produced  by  CROSSI. 


INTERDATA  PREPROCESSOR  FOR  ASCII  RELOCATABLE  FILES 


PRE-PROCESSOR  FOR  INTERDATA  ASCII  RELOCATABLE 
PAPER  TAPE  FILES  PRODUCED  BY  CROSSI  WITH  R OPTION 
ASCII  RELOCATABLE  FILE  READ  FROM  LU  1. 

INTERDATA  RELOCATABLE  FILE  WRITTEN  TO  LU  2 . 


OOOA 

A 

EQU 

10 

OOOB 

B 

EQU 

11 

OOOC 

C 

EQU 

12 

OOOD 

D 

EQU 

13 

0006 

PCNT 

EQU 

6 

4801 

RACR 

EQU 

X * 4801 ' 

3802 

WBNR 

EQU 

X '3802' 

OOOOR 

INBUF 

DS 

216 

00D8R 

OUTBUF 

DS 

108 

0144R  4801 

RASCII 

DC 

RACR 

0146R  0000 

DC 

0 

0148R  OOOOR 

DC 

A( INBUF ) 

014AR  00D7R 

DC 

A(  INBUF+2 15 ) 

014CR  3802 

WRBIN 

DC 

WBNR 

014ER  0000 

DC 

0 

0150R  00D8R 

DC 

A(OUTBUF) 

0152R  0143R 

DC 

A(0UTBUF+107 

0154R  0006 

UPK 

DC 

6 

0156R  0166R 

DC 

A(ERR) 

0158R  0007 

MSG 

DC 

7 

015AR  OOOE 

DC 

14 

015CR  492F 

DC 

C ' I/O  ERROR 

4F20 

4552 

524F 

5220 

0166R 

ERR 

DS 

4 

016AR  0007 

PMSG 

DC 

7 

016CR  0018 

DC 

24 

016ER  4153 

DC 

C 'ASSEMBLER 

5345 

4D42 

4C45 

5220 

5052 

452D 

5052 

4F43 


READ  ASCII  FROM  LU  1 


WRITE  BINARY  ON  LU  2 
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4553 

534F 

5220 

0186R  E120  START  SVC  2,PMSG 
016AR 

★ 

* INITAILIZE  REGISTERS  FOR  BXLE 


018AR 

2482 

LIS 

8,2 

018CR 

C890 

0143R 

LHI 

9 ,0UTBUF+107 

0190R 

24B1 

LIS 

B , 1 

0192R 

C8C0 

00D7R 

LHI 

C , INBUF+2 15 

0196R 

C870 

00D8R 

START 1 

LHI 

7, OUTBUF 

019AR 

0700 

XHR 

0,0 

019CR 

4007 

0000 

START2 

STH 

0,0(7) 

01A0R 

C170 

019CR 

BXLE 

7,START2 

01A4R 

C870 

00D8R 

LHI 

7, OUTBUF 

01A8R 

2464 

LIS 

PCNT  ,4 

01  AAR 

0722 

XHR 

2,2 

01ACR 

E110 

0144R 

READ 

SVC 

1 , RASC I I 

01B0R 

4800 

0146R 

LH 

0,RASCI 1+2 

01B4R 

4230 

0212R 

BNZ 

ERROR 

01B8R 

C8A0 

OOOOR 

LHI 

A, INBUF 

01BCR 

D33A 

0000 

PACK 

LB 

3, 0(A) 

01C0R 

C530 

OOOA 

CLHI 

3 , X ' 0 A ' 

01C4R 

4330 

01ECR 

BE 

PACK1 

01C8R 

C530 

0020 

CLHI 

3,X  '20 ' 

01CCR 

4330 

01ECR 

BE 

PACK1 

01D0R 

C530 

OOOD 

CLHI 

3 ,X ' OD ' 

01D4R 

4330 

01ACR 

BE 

READ 

01D8R 

C530 
002  E 

CLHI 

3,X ' 2E ' 

01DCR 

4330 

021ER 

BE 

DONE 

01E0R 

913C 

SLLS 

3,12 

SIGN  ON  MESSAGE 
CONTROL 

INC  FOR  OUTBUF 
LAST  BYTE  IN  OUTBUF 

INC  FOR  INBUF 
LAST  BYTE  IN  INBUF 

ADDRESS  OF  OUTBUF 
ZERO  OUTBUF 

IN  IT  COUNTER  TO  4 
READ  FIRST  RECORD 
WAS  RECORD  GOOD? 

NO, PRINT  MESSAGE, STOP 
ADDRESS  OF  INBUF 
FETCH  ONE  CHAR 
IS  CHAR  A LINE  FEED? 
YES,  IGNORE 
IS  CHAR  A SPACE? 

YES,  IGNORE 
IS  CHAR  A CR? 

READ  NEXT  RECORD 
IS  CHAR  A PERIOD? 

YES,  END  OF  FILE 
PACK  4 BITS  OF  CHAR 
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01E2R 

ED20 

0004 

SLL 

2,4 

01E6R 

2761 

SIS 

PCNT , 1 

DECREMENT  COUNTER 

01E8R 

4330 

01F4R 

BZ 

PACK2 

IS  OUTPUT  WORD  FULL 

01ECR 

C1A0 

01BCR 

PACK1 

BXLE 

A, PACK 

INC  INPUT  POINTER 

OlFOR 

4300 

01ACR 

B 

READ 

READ  NEXT  RECORD 

01F4R 

01F8R 

4027 

0000 

0722 

PACK2 

STH 

XHR 

2,0(7) 

2,2 

STORE  PACKED  BINARY  DATA 

OlFAR 

C860 

0004 

LHI 

PCNT, 4 

REINITIALIZE  COUNTER 

OlFER 

C170 

01ECR 

BXLE 

7 ,PACK1 

INC  OUTPUT  POINTER 

0202R 

E110 

014CR 

WRITE 

SVC 

1 ,WRBIN 

WRITE  FULL  OUTBUF 

0206R 

4800 

014ER 

LH 

0 ,WRBIN+2 

IS  WRITE  GOOD? 

020AR 

4230 

0212R 

BNZ 

ERROR 

NO, PRINT  MESSAGE, STOP 

020ER 

4300 

0196R 

B 

START 1 

YES,  CONT 

0212R 

E120 

0154R 

ERROR 

SVC 

2 ,UPK 

ERROR  CODE 

0216R 

E120 

0158R 

SVC 

2, MSG 

PRINT  ERROR  MESSAGE 

021AR 

E130 

0000 

SVC 

3,0 

RETURN  CONTROL  TO  OS 

021ER 

0822 

DONE 

LHR 

2,2 

PACK  LAST  DATA 

0220R 

4330 

0246R 

BZ 

D0NE1 

IS  OUTPUT  WORD  EMPTY? 

0224R 

C320 

FFFO 

THI 

2 ,X 1 FFFO ' 

WORD  CONTAIN  1 HEX  DIGET? 

0228R 

4230 

0230R 

BNZ 

D0NE2 

NO,  CONT 

022CR 

912C 

SLLS 

2,12 

YES,  SHIFT  LEFT 

022ER 

230C 

BS 

D0NE1 

PACKING  DONE 

0230R 

C320 

FFOO 

D0NE2 

THI 

2 ,X 1 FFOO 1 

WORD  CONTAIN  2 HEX  BITS? 

0234R 

4230 

023CR 

BNZ 

D0NE3 

NO,  CONT 

0238R 

9128 

SLLS 

2,8 

YES,  SHIFT  LEFT 

023AR 

2306 

BS 

D0NE1 

PACKING  DONE 

023CR 

C320 

FOOO 

D0NE3 

THI 

2 ,X 1 FOOO 1 

WORD  CONTAIN  3 HEX  DIGITS? 

0240R 

4230 

0246R 

BNZ 

DONE  1 

NO,  WORD  HAS  4 HEX  DIGITS 

0244R 

9124 

SLLS 

2,4 

YES,  SHIFT  LEFT 

0246R 

4027 

0000 

D0NE1 

STH 

2,0(7) 

STORE  WORD  IN  OUTBUF 

26 


WRITE  LAST  RECORD 


024AR 

EllO 

014CR 

024ER 

4800 

014ER 

0252R 

4230 

0212R 

0256R 

El  30 
0000 

025AR 

NO  ERRORS 

025AR 

A 

OOOA 

B 

OOOB 

C 

OOOC 

D 

OOOD 

DONE 

021ER 

DONE1 

0246R 

DONE2 

0230R 

DONE  3 

023CR 

ERR 

0166R 

ERROR 

0212R 

INBUF 

OOOOR 

MSG 

0158R 

OUTBUF 

00D8R 

PACK 

01BCR 

PACK1 

01ECR 

PACK2 

01F4R 

PCNT 

0006 

PMSG 

016AR 

RACR 

4801 

RASCII 

0144R 

READ 

01ACR 

START 

0186R 

START  1 

0196R 

START2 

019CR 

UPK 

0154R 

WBNR 

3802 

WRBIN 

014CR 

WRITE 

0202R 

END  CROSSI 

SVC 

1, WRBIN 

LH 

0 ,WRBIN+2 

BNZ 

ERROR 

SVC 

3,0 

END 

START 

END  START 


IS  LAST  RECORD  GOOD? 
NO, PRINT  MESSAGE, STOP 
YES,  ALL  DONE 
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